<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.pel</name>
<id>-1</id>
<cardCount>326</cardCount>
<cardID>4465</cardID>
<listID>12045</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>448</width>
<height>288</height>
</cardSize>
<script>on openStackglobal Changed, FindString, oldULset cursor to 4if the visible of window "Message" is "true" thendoMenu "Message"set cursor to 4end ifput empty into FindStringput "Nope" into Changedput empty into newNameset cursor to 4put the userlevel into oldULset userlevel to 2pass openStackend openStackon suspendStackglobal oldULset cursor to 4if the windows contains "Control" thensend "close" to window "Control"end ifset userlevel to oldULpass suspendStackend suspendStackon resumeStackset cursor to 4if the visible of window "Message" is "true" thendoMenu "Message"set cursor to 4end ifset userlevel to 2pass resumeStackend resumeStackon arrowKey whichWayif whichWay = "left" thendoPrevelseif whichWay = "right" thendoNextend ifend ifend arrowKeyon doNextif number of this card = the number of cards or ¬the number of this card >= 1 and the number of this card < 6 thenvisual effect scroll left slowgo sixth cardelsevisual effect wipe leftgo Nextend ifend doNexton doPrevif number of this card <= 6 thenvisual effect scroll right slowgo lastelsevisual effect wipe rightgo prevend ifend doPrevon doMenu itemglobal Changedif item is "Next" thendoNextelseif item = "Prev" thendoPrevelseif item = "New Card" thenput "Yup" into Changedset cursor to 4set lockScreen to truego lastpass doMenuelseif item = "Delete Card" thenanswer "Are you sure you want to delete this card?" ¬with "OK" or "Cancel"if it is "OK" thenif field "Name" is empty and field "Level" is empty thenpass doMenuelseif it is "Cancel" thenexit doMenuelseset cursor to 4put field "Level" && "•" && field "Name" into deleteSpelllock screenpush cardgo to card "Index"find whole deleteSpell in card field "IndexList"delete the foundLinepop cardunlock screenset cursor to 1pass doMenuend ifend ifend ifelseif item = "Find..." thendoFindelseif item = "Index" thendoIndexelseif item = "Print Spells" thendoPrintSpellselseif item = "First" thendoDoneelsepass doMenuend ifend ifend ifend ifend ifend ifend ifend ifend doMenuon closeStackif the windows contains "Control" thensend "close" to window "Control"end ifif the freesize of this stack / size of this stack > .2 thenanswer "The stack needs compacting. Do you want to do it now?"¬with "No", "Yes"if it is "Yes" then doMenu "Compact Stack"end ifpass closeStackend closeStackon doNewSpelldoMenu "New Card"end doNewSpellon doPrintSpellspush card 5lock screenif Changed is "Yup" thenset cursor to 4do SortCardsset cursor to 1end ifgo to card "Print Spells"unlock screen with visual effect iris openend doPrintSpellson doDeletedoMenu "Delete Card"end doDeleteon SortCardsglobal Changedset cursor to 4unmark all cardssort by field "Sort"put "Nope" into Changedset cursor to 1end SortCardson doDoneglobal Changedif Changed is "Yup" thenlock screendo SortCardsunlock screen with visual effect dissolveelsevisual effect dissolvego to first cardend ifend doDoneon doIndexglobal Changedif Changed is "Yup" thenlock screengo to card "Index"unlock screen with visual effect barn door openend ifvisual effect barn door opengo to card "Index"end doIndexon doFindglobal FindStringask "Find which spell?" with FindStringput it into FindStringif the result is "Cancel" then exit doFindif FindString is not empty then find word FindString in field "Name"if the result is "not found" thenplay boinganswer "Can't find it!! Did you spell it wrong??" with "OK"end ifend doFind</script>
